home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue24 / construc / UNIT1.DFM / UNIT1.txt
Encoding:
Text File  |  1997-06-24  |  1.5 KB  |  79 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Name = 'WebActionItem1'
  5.       OnAction = WebModule1WebActionItem1Action
  6.     end
  7.     item
  8.       Default = True
  9.       Name = 'WebActionItem2'
  10.       PathInfo = '/table'
  11.       OnAction = WebModule1WebActionItem2Action
  12.     end>
  13.   Left = 341
  14.   Top = 109
  15.   Height = 152
  16.   Width = 192
  17.   object PageProducer1: TPageProducer
  18.     HTMLDoc.Strings = (
  19.       '<HTML>'
  20.       '<BODY>'
  21.       '<H1>'
  22.       'Hello, world'
  23.       '</H1>'
  24.       '<HR>'
  25.       ''
  26.       '<#TAG> '
  27.       ''
  28.       '</BODY>'
  29.       '</HTML>')
  30.     OnHTMLTag = PageProducer1HTMLTag
  31.     Left = 40
  32.     Top = 16
  33.   end
  34.   object DataSetTableProducer1: TDataSetTableProducer
  35.     Columns = <
  36.       item
  37.         FieldName = 'Species No'
  38.       end
  39.       item
  40.         BgColor = 'White'
  41.         FieldName = 'Category'
  42.       end
  43.       item
  44.         BgColor = 'Yellow'
  45.         FieldName = 'Common_Name'
  46.       end
  47.       item
  48.         FieldName = 'Species Name'
  49.       end
  50.       item
  51.         BgColor = 'Teal'
  52.         FieldName = 'Length (cm)'
  53.       end
  54.       item
  55.         BgColor = 'Teal'
  56.         FieldName = 'Length_In'
  57.       end
  58.       item
  59.         FieldName = 'Notes'
  60.       end
  61.       item
  62.         FieldName = 'Graphic'
  63.       end>
  64.     DataSet = Table1
  65.     TableAttributes.Align = haRight
  66.     TableAttributes.BgColor = 'Silver'
  67.     TableAttributes.Border = 2
  68.     Left = 72
  69.     Top = 64
  70.   end
  71.   object Table1: TTable
  72.     Active = True
  73.     DatabaseName = 'DBDEMOS'
  74.     TableName = 'BIOLIFE.DB'
  75.     Left = 128
  76.     Top = 48
  77.   end
  78. end
  79.